Manipulate[Show[Plot[Evaluate@Normal[Series[Exp[z],{z,0,n}]],{z,-5,5},AxesOrigin->{0,0},PlotRange->{{-5,5},{-2,100}},PlotStyle->{Red,Opacity[s]}],Plot[Exp[z],{z,-5,5},PlotRange->{{-5,5},{-2,100}},PlotStyle->{Thick,Blue}]],{n,0,10,1},{s,0,1}]